home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / phigs / ptk.lha / ptk / fortran / source / library / dbug.f < prev    next >
Encoding:
Text File  |  1992-06-18  |  3.9 KB  |  110 lines
  1. C----------------------------------------------------------------------------
  2.  
  3. C  Module name: PHIGS Debugger.
  4.  
  5. C  Author: Steve Larkin.
  6.  
  7. C  Function: This module contains the PHIGS Debugger.
  8.  
  9. C  Dependencies:
  10.  
  11. C  Internal function list: 
  12.  
  13. C  External function list: 
  14.  
  15. C  Modification history: (Version), (Date), (name), (Description).
  16.  
  17. C  1.0, 23rd August 1988, S. Larkin, First version.
  18.  
  19. C  2.0, 30th October 1991, G. Williams, Translated to C.
  20.  
  21. C----------------------------------------------------------------------------
  22.  
  23.         SUBROUTINE ptkf_debugger(wsid, stid)
  24. C /*
  25. C ** \parambegin
  26. C ** \param{INTEGER}{wsid}{workstation identifier}{IN}
  27. C ** \param{INTEGER}{stid}{structure identifier}{IN}
  28. C ** \paramend
  29. C ** \blurb{This function starts the PHIGS debugger on workstation
  30. C ** \pardesc{wsid}, and makes structure \pardesc{stid} the root of the structure network
  31. C ** to be debugged.}
  32. C */
  33.         INTEGER wsid, stid
  34.         external ptk_debugger !$PRAGMA C(ptk_debugger)
  35.  
  36.         call ptk_debugger(%val(wsid), %val(stid))
  37.  
  38.         RETURN
  39.         END
  40.  
  41.         SUBROUTINE ptkf_setdebuggerattrs(menufont, windowfont,
  42. & menucol, menutextcol, windowcol, 
  43. & bannercol, bannertextcol, tlcol, brcol, arrowcol, arrowedgecol)
  44. C /*
  45. C ** \parambegin
  46. C ** \param{INTEGER}{menufont}{menu text font}{IN}
  47. C ** \param{INTEGER}{windowfont}{window text font}{IN}
  48. C ** \param{INTEGER}{menucol}{menu colour index}{IN}
  49. C ** \param{INTEGER}{menutextcol}{menu text colour index}{IN}
  50. C ** \param{INTEGER}{windowcol}{window interior colour index}{IN}
  51. C ** \param{INTEGER}{bannercol}{window banner colour index}{IN}
  52. C ** \param{INTEGER}{bannertextcol}{window banner text colour index}{IN}
  53. C ** \param{INTEGER}{tlcol}{top-left colour index}{IN}
  54. C ** \param{INTEGER}{brcol}{bottom-right colour index}{IN}
  55. C ** \param{INTEGER}{arrowcol}{arrow colour index}{IN}
  56. C ** \param{INTEGER}{arrowedgecol}{arrow edge colour index}{IN}
  57. C ** \paramend
  58. C ** \blurb{This function enables an application to set
  59. C **  the fonts and colours of menus and windows in the PHIGS debugger.}
  60. C */
  61.     INTEGER menufont, windowfont
  62.     INTEGER menucol, menutextcol, windowcol
  63.         INTEGER bannercol, bannertextcol, tlcol, brcol
  64.     INTEGER arrowcol, arrowedgecol
  65.         external ptk_setdebuggerattrs !$PRAGMA C(ptk_setdebuggerattrs)
  66.  
  67.      call ptk_setdebuggerattrs(%val(menufont), %val(windowfont),
  68. & %val(menucol), %val(menutextcol), 
  69. & %val(windowcol), %val(bannercol), %val(bannertextcol), %val(tlcol),
  70. & %val(brcol), %val(arrowcol), %val(arrowedgecol))
  71.  
  72.     RETURN
  73.     END
  74.  
  75.         SUBROUTINE ptkf_inqdebuggerattrs(menufont, windowfont,
  76. & menucol, menutextcol, windowcol, 
  77. & bannercol, bannertextcol, tlcol, brcol, arrowcol, arrowedgecol)
  78. C /*
  79. C ** \parambegin
  80. C ** \param{INTEGER}{menufont}{menu text font}{IN}
  81. C ** \param{INTEGER}{windowfont}{window text font}{IN}
  82. C ** \param{INTEGER}{menucol}{menu colour index}{IN}
  83. C ** \param{INTEGER}{menutextcol}{menu text colour index}{IN}
  84. C ** \param{INTEGER}{windowcol}{window interior colour index}{IN}
  85. C ** \param{INTEGER}{bannercol}{window banner colour index}{IN}
  86. C ** \param{INTEGER}{bannertextcol}{window banner text colour index}{IN}
  87. C ** \param{INTEGER}{tlcol}{top-left colour index}{IN}
  88. C ** \param{INTEGER}{brcol}{bottom-right colour index}{IN}
  89. C ** \param{INTEGER}{arrowcol}{arrow colour index}{IN}
  90. C ** \param{INTEGER}{arrowedgecol}{arrow edge colour index}{IN}
  91. C ** \paramend
  92. C ** \blurb{This function may be used to obtain the text font and 
  93. C ** colour attribute values of menus and windows used in the PHIGS debugger.}
  94. C */
  95.     INTEGER menufont, windowfont
  96.     INTEGER menucol, menutextcol, windowcol
  97.         INTEGER bannercol, bannertextcol, tlcol, brcol
  98.     INTEGER arrowcol, arrowedgecol
  99.         external ptk_inqdebuggerattrs !$PRAGMA C(ptk_inqdebuggerattrs)
  100.  
  101.      call ptk_inqdebuggerattrs(menufont, windowfont,
  102. & menucol, menutextcol, 
  103. & windowcol, bannercol, bannertextcol, tlcol,
  104. & brcol, arrowcol, arrowedgecol)
  105.  
  106.     RETURN
  107.     END
  108.  
  109. C end of debug.f
  110.